﻿Imports QLPhuTungOto.Data
Imports QLPhuTungOto.Bus
Public Class ucDoiMatKhau

    Dim ND_BUS As New NguoiDungBUS
    Private Sub btnDongY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDongY.Click

        If KTNhap().Length = 0 Then
            DoiMatKhau()
            MsgBox("Đã đổi mật khẩu")
        Else
            MsgBox(KTNhap())
        End If

    End Sub

    Private Function KTNhap() As String
        Dim err As String = ""
        err += HamHoTro.KiemTraRong(txtMatKhauCu.Text, "Mật khẩu cũ")
        err += HamHoTro.KiemTraRong(txtMatKhauMoi.Text, "Mật khẩu mới")
        err += HamHoTro.KiemTraRong(txtXacNhanMatKhau.Text, "Mật khẩu xác nhận")

        Dim nd As NguoiDung = ND_BUS.LayNguoiDungTheoMa(1)

        If nd.MatKhau <> HamHoTro.MaHoaMD5x2(txtMatKhauCu.Text) Then
            err += "Mật khẩu cũ không chính xác" + ControlChars.NewLine
        End If

        If txtMatKhauMoi.Text <> txtXacNhanMatKhau.Text Then
            err += "Mật khẩu xác nhận không chính xác" + ControlChars.NewLine
        End If

        Return err
    End Function
    Private Sub DoiMatKhau()
        Dim nd As New NguoiDung With {.MaNguoiDung = 1,
                                      .MatKhau = HamHoTro.MaHoaMD5x2(txtMatKhauMoi.Text)}
        ND_BUS.DoiMatKhau(nd)
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        txtMatKhauCu.Text = ""
        txtMatKhauMoi.Text = ""
        txtXacNhanMatKhau.Text = ""
    End Sub
End Class
